| = | 
} | 
| 

LLL HI11111 NNN NNN KKK KKK EEEEEEEEEEEEEEE RRRRRRRRRRRR 

LLL III NNN NNN KKK KKK EEEEEEEEEEEEEEE RRRRRRRRRRRR 

LLL HI NNN NNN KKK KKK EEEEEEEEEEEEEEE RRRRRRRRRRRR 

LLL II] NNN NNN KKK KKK EEE RER RRR 

LLL 11] NNN NNN KKK KKK EEE RRR RRR 

LLL II] NNN NNN KKK KKK EEE RRR RRR 

LLL 11] NNNNNN NNN KKK KKK EEE RRR ARR 

LLL 11] NNNNNN NNN KKK KKK EEE RRR RRR 

LLL II] NNNNNN NNN KKK KKK EEE RRR RRR 

LLL II] NNN NNN NNN KKKKKKKKK EEEEEEEEEEEE RRRRRRRRRRRR 

LLL II] NNN NNN NNN KKKKKKKKK EEEEEEEEEEEE RRRRRRRRRRRR 

LLL II] NNN NNN KKKKKKKKK EEEEEEEEEEEE RRRRRRRRRRRR 

LLL II] NNN NNNNNN KKK KKK EEE RRR RRR 

LLL II] NNN NNNNNN KKK KKK EEE RRR RRR 

LLL 11] NNN NNNNNN KKK KKK EEE RRR RRR 

LLL 11] NNN NNN KKK KKK EEE ARP RR 

LLL II] NNN NNN KKK KKK EEE RRR RRR 

LLL 11] NNN NNN KKK KKK EEE _ RRR RRR 

LLLLLLLLLLLLLLL IIIIIIII1 NNN NNN KKK KKK EEEEEEEEEEEEEEE RRR RRR 

LLELLLLLLLLLLLLL III NNN NNN KKK KKK EEEEEEEEEEEEEEE RRR RRR 

LLELLLLLLLLLLLLL III NNN NNN KKK KKK EEEEEEEEEEEEEEE RRR RRR 


**F ILE**1D**LNKNXTOBJ 
LL NN NN KK KK NN NN XX MX OTTTTTTTTTT 000000 BBBB8B88 JJ 
LL NN NN KK KK NN NN XX XX TTTTITTTITT 000000 688888888 JJ 
LL NN NN KK KK NN NN XX XX TT 00 88 BB JJ 
LL NN NN KK KK NN NN XX XX TT 00 00 88 88 JJ 
LL NNNN NN KK KK NNNN NN XX Xx TT 00 00 88 8B JJ 
LL NNNN NN KK KK NNNN NN XX XX TT 00 00 88 8B JJ 
LL NN NN NN KKKKKK NN WN NN XX TT 00 00 88888688 JJ 
LL NN NN NN KKKKKK NN WN NN XX TT 00 00 88888688 JJ 
LL NN NNNN KK NN NNNN XX XX TT 00 00 6B BB JJ JJ 
LL NN NNNN KK KK NN NNNN XX Xx TT 00 00 688 BB J JJ 
LL NN NN KK KK NN NN XX XX TT 00 00 68 BB J JJ eeee 
LL NN NN KK KK NN NN XX xx TT 00 00 88 BB JJ JJ eeee 
LLLLLLLLLL NN NN KK KK NN NN XX XX TT 000000 BBBBBBBB JJJJJJ cece 
LLLLLLLLLL NN NN KK KK NN NN XX Le | TT 000000 BBBBBBBB JJJJJJ eeee 
LL HII! SSSSSSSS 
LL 1111 SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] $$ 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL HII] SSSSSSSS 
LLLLLLLLLL M1111 SSSSSSSS 


rbosenctgee 09:10:35 YAN] OLisg=52 ve.0-74g. 


MODULE LNK_NXTOBJ 
(IDENT = 'v04-000° 
ADDRESSING MODE (EXTERNAL =GENER AL, 
NONE XTERNAL=LONG_RELATIVE) 


E 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


)«z 
BEGIN 
; 
1 lenuecaceeecenceeneeeeencsenereererrecereereerrereeenennnnennenenteeesneteees 
'@ 
1 ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
1 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
1 
1 


w 
* 
oe 
a 
ft 
® 
yy 

LUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie c IES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is TRANSFERRED. * 
: ® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i@ AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. ‘ 
ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY CF ITS * 
is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ° 
i 
sngbbennnessanennonensnenensasansnnnsnesenenanmnininentanensesaeneenenenenes 
1 
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' 

i 

' 

' 

lee 

4 

i MODULE: LNK_NXTOBJ 

i FACILITY: LINKER 

i ABSTRACT: FIND NEXT OBJECT MODULE (AND OPEN FILE) FOR PASS 2. 
i HISTORY: 
' 
' 
1 
' 
' 
J 
' 
4 
' 
' 
‘ 


—Ooe 


VERSION: X0%.00 
AUTHOR: T.J. PORTER 11-APR-77 


i MODIFIED BY: 
v03-003 BLsoors Benn Schreiber 29-Aug-1981 
Remove argument for call to ink$nxtobjmod 
v03-002 e. 50917 Benn Schreiber 1-Sep-1980 


kt ad ad a 8 a a a 8 4 9 8 a 8 a a tt tt 2 HOODOO 


NAME VO ODN WT 


t lnk$gl_curomd when going to new object module. 
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v03-001 8LS0007 Benn Schreiber, 33-Jun-1980 
Convert to MDL data structures. 


B 
if: 30771 be 93:18:87 | Hacer See iaenxtoos o$2:1 Page 33 
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FUNCTIONAL DESCRIPTION: 


THIS MODULE CONTAINS THE ROUTINE TO ACQUIRE THE NEXT 
Gaye? RCT PLA DESCRIPTOR AND ENSURE THAT THE FILE IS OPEN 
T CORRE LAC E) READY FOR PASS 2 TO READ RECORDS 
SEQUENTIALLY FROM IT. 
THIS 1 DONE BY FOLLOWING DOWN THE SINGLY LINKED 
IST OF OBJECT MODULE DESCRIPTORS TO TH He END, THEN ee 
O THE NEXT FILE IN SEQUENCE, OPENING AND FOLLOWING 
OWN THE LIST. 
CALLING SEQUENCE:- 


LNKSNXTOBJMOD () 
THE 444 te af OF att DESCRIPTOR OF THE NEXT OBJECT MODULE 


IS STORED = 
R INE HAS” VALUE FALSE WHEN NO MORE 
MODULES ARE AVAILABLE IN THE LAST FILE. 


Oe 


LIBRARY 
"STARLETL32'; ! SYSTEM USER DATA STRUCTURES 
9 REQUIRE 
89 "PREFIX’; ! MACROS ETC. 
91 LIBRARY 
% *DATBAS'; | INTERNAL DATA BASE DEFINITION 
‘ . 
EXTERNAL LITERAL 
LINS_EMPTYF ILE; | FILE CONTAINS NO MODULES 
5 1 EXTERNAL ROUTINE 
021 LINKSNXTF IL ! OPEN NEXT FILE 
i LNKSPOINTOBJ; i POINT TO A MODULE IN LIBRARY 
1 ' 
1 EXTERNAL 
1 LNKSGL_CUROMD : REF BLOCKC, BYTE). ! POINTER TO CURRENT OBJECT MODULE DESCRIPTO 
LNKSGL~CURFIL : REF BLOCKL.BYTE); i POINTER TO CURRENT FILE. 
1 
1 


GLOBAL ROUTINE LNKSNXTOBJMOD = 
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1 
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tee 

1 : If THE END OF A LIST OF OBJECT MODULE DESCRIPTORS (OR 

1 : FIRST CALL) OPEN NEXT FILE. ON wre ENT CALLS FOLLOW DOWN 

} : CURRENT LIST. FINALLY RETURN VALUE FALSE 

1 LOCAL 

: ‘ LSTOBMODESC : REF BLOCKC,BYTE); ! POINTER TO PREVIOUS OBJ MOD. DESCRIPTOR 
1 IF (LSTOBMODESC = .LNKSGL_CUROMD) NEQ 0 ! IF THERE WAS ONE 

1 ‘on LNKSGL_CUROMD = “hNKRGL. CUROMDCOMDSL _NXTOMD); : BEFORE, GET T : 

1 WHILE (.LNKSGL_CUROMD EQL : IT POINTS TO i THER 
: BEGIN IS _NO LONGER A DES 


: I$ CRIPTOR 
LSTOBMODESC = 0; ! RESET THE LAST OBJECT DESCRIPTOR 


Pt Oe ee a a a 4 tt 


NOUS vr 


wr 


uw 
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IF NOT LNKSNXTFIL() ! OPEN NEXT FILE 


THEN BEGIN i AND ALL DONE IF NO MORE 
LNKSGL_ CURE IL = 6; 
a yp Re TURN ALSE 
i (LNKSGL_CUROMD = .LNKSGL_CURFILCFDBSL_OMDLSTJ) EQL 0 ! t OTHERISE GET THE FIRST MODULE 
SIGNAL (LINS_EMPTYFILE,1,LNKSGL_CURFILCFDBSQ_ FILENABE) ! REPORT THE ERROR 
IF eh ned Conons V_LIBRI ' IF A LIBRARY FILE 
UROMD One SHRIMG) ' AND/OR A SHAREABLE IMAGE 
STOBRODES J i OR THIS 1S NOT THE FIRST IN A CONCATENATED 
eek s FOBMODESS onb Sy NOBIN]) i OBJ BUT IS PRECEDED BY A MODULE WITH NO BI 
THEN “LNKSPOINTOBJ(UNKSGL. CURORDCOMDSL _MODVBN]); i POINT TO THE MODULE 
RETURN TRUE ! AND SUCCESS 
END; 
.TITLE LNK_NXTOBJ 
SIDENT \V0%Z-000\ 
~EXTRN LINS_EMPTYFILE, LNKSNXTFIL 
“EXTRN LNKSPOINTOBJ, LNKSGL _CUROMD 
-EXTRN LNKSGL_CURF IL 
.PSECT S$CODE$,NOWRT,2 
001¢ 99009 ENTRY LNKSNXTOBJMOD , Save R2,R3,R4 : 0218 
54 000000006 00 9E 0000 MOVAB LNKSGL_CURFIL, R4 : 
3 000000006 09 9E 000 MOVAB _LNK $L~CURORD R3 ; 
$ D 9019 MOVL LNKSGL = CUROMD, RO : 0228 
é DO 0001 MOVL RO, LSTOBMODE Desc : 
03 1 0016 BEQL =s«s1$ : 
63 6 00 001 MOVL (RO) LNKSGL CUROMD : 9229 
63 05 0001B 1$: TSTL LNKSGL_CU OMB : 0230 
@0 12 9010 BNEQ $ : 
D4 OO01F CLRL LSTOBMODESC ; 9232 
000000006 00 p Fe 0021 CALLS #0, LNKSNXTFIL : 023 
04 E 00 8 BLES ~—_ RO, ; 
64 D4 00028 CLRL = LNKSGL_CURFIL : 0235 
45 11 0002D BRB $ ; 02 
59 64 D F 28: MOVL LNKSGL _CURFIL, RO : 0238 
6 04 Ag p 9 MOVL  4(RO),~LNKSGL_CUROMD ; 
é BNEQ : 
14 Ad 9F 000 PUSHAB 20(RO) : 0240 
1 DD 9 PUSHL # F 
000000006 8F DD PUSHL aL INS EMPTYF ILE ; 
000000006 00 3 FB CALLS #3, LIBSSIGNAL ; 
oe 4A BRB ; 0330 
50 6 D C 3$: MOVL Fhe tad CURF IL RO + 0242 
11 OA AO 1 €£ af BBS a$ : 
50 3 0 4 MOVL 2 8b Teton > 0243 
09 16 AO E 7 BBS #2, TRO) . : 
; p ¢ st + 0244 
08 16 A2 01 €1 00 Fi BBC . omnes 5$ > 0245 


A Pe on goge ; 0 data bytes 
Elapsed i Tine: i iy 
Pewee Boe “Ain: 


Y Used: 57 pages 
Compilation Complete 


-° 
e 5 AX-11 Bliss-32 V4.0-7 Pa 5 
os 1382 99: 18: 3 LINKER.SRC LWEN\TOBI-B 2;1 - (2) 
7E C1 4$: ADOL3 ale. LNKSGL_CUROMD, -(SP) 3; 0246 
000000006 63 i 4 CALLS LNKSPOIRTOBJ ; 
1 8 5$: MOVL Ag RO 3; 0248 
4 7 RET é 
° & 74 6%: CLRL RO 3; 0249 
76 RET 3 
; Routine Size: 119 bytes, Routine Base: S$CODE$S + 0000 
3; 137 0250 0 END ELUDOM 
-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes 
$ SCODES 119 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
Pa ele ee ee ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
> _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 6 0 581 00:01.0 
: ~$255$DUA28:CLINKER. OBJ JDATBAS.L32;1 538 7 1 28 00:00.5 
3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:LNKNXTOBJ/OBJ=OBJ$:LNKNXTOBJ MSRC$:LNKNXTOBJ/UPDATE=(ENHS$:LNKNXTOBJ) 
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